home *** CD-ROM | disk | FTP | other *** search
/ Aminet 25 / Aminet 25 (1998)(GTI - Schatztruhe)[!][Jun 1998].iso / Aminet / comm / mail / AEMail.lha / aemail151 / files.lha / ARexx.lha / Addtogrp.aem next >
Encoding:
Text File  |  1998-03-21  |  2.7 KB  |  127 lines
  1. /* AEMail Add Name from To: & cc: headers to Address Book Group */
  2.  
  3. OPTIONS RESULTS
  4.  
  5. TRACE ALL
  6.  
  7. CURRENT IS SELECTED
  8.  
  9. IF (RESULT ~= 1) THEN DO
  10.     OKAY1 "No message is selected"
  11.     EXIT
  12.     END
  13.  
  14. TO
  15.  
  16. tolist = RESULT
  17.  
  18. IF (tolist = "") THEN DO
  19.     OKAY1 "No To: Header in message"
  20.     EXIT
  21.     END
  22.  
  23. ADDTOAB = 1
  24. IF (ADDTOAB = 1) THEN DO
  25.     OK = 0
  26.     DO UNTIL OK = 1
  27.         GETSTRING '"Enter Group Nickname"'
  28.         grpname = RESULT
  29.         IF (grpname = "") THEN EXIT
  30.         ADDRESS_BOOK GET grpname TYPE
  31.         addrtype = RESULT
  32.         IF (addrtype = -1) THEN DO
  33.             OKAY2 '"Create It|Enter New Name|Cancel"' "Group Nickname Does Not Exist"
  34.             IF (RESULT = 1) THEN DO
  35.                 GETSTRING '"Enter a Group Description"'
  36.                 grpdesc = RESULT
  37.                 OK = 1
  38.                 OKAY2 "YES|NO" "Do you want to send header only?"
  39.                 IF (RESULT = 0) THEN sndho = ""
  40.                 ELSE sndho = "SHO"
  41.                 END
  42.             ELSE IF (RESULT = 2) THEN OK = 0
  43.             ELSE IF (RESULT = 0) THEN exit
  44.             END
  45.         IF (addrtype = 0) THEN DO
  46.             OKAY2 '"Re-enter Name|Cancel"' "Nickname is already used for an Individual"
  47.             IF (RESULT = 1) THEN OK = 0
  48.             IF (RESULT = 0) THEN exit
  49.             END
  50.         IF (addrtype = 1) THEN OK = 1
  51.         END
  52.     END
  53.  
  54. FIRST TONAME
  55.  
  56. name1 = RESULT
  57.  
  58. IF (name1 = "") THEN EXIT
  59.  
  60. EXTRACT USERID "'"name1"'"
  61.  
  62. emailaddr=RESULT
  63.  
  64. DO UNTIL emailaddr = ""
  65.  
  66.     IF (ADDTOAB = 1) THEN DO
  67.         IF (addrtype = -1) THEN DO
  68.             cmd = "ADDRESS_BOOK CREATE GROUP " grpname sndho "'"emailaddr"'" grpdesc
  69.             addrtype = 1
  70.             END
  71.         ELSE cmd = "ADDRESS_BOOK ADD TO GROUP " grpname "'"emailaddr"'"
  72.         cmd
  73.         END
  74.     NEXT NAME
  75.     IF (RC ~= 0) THEN DO
  76.         OKAY1 "last error is "AEMAIL.LASTERROR
  77.         EXIT
  78.         END
  79.     name1 = RESULT
  80.     EXTRACT USERID "'"name1"'"
  81.     emailaddr=RESULT
  82.     END
  83.  
  84. CC
  85.  
  86. IF (RESULT = "") THEN DO
  87.     OKAY1 "Last To: Name added - no cc: names"
  88.     EXIT
  89.     END
  90.  
  91. OKAY2 "YES|NO" "Do you want to add cc: names?"
  92.  
  93. IF (RESULT = 0) THEN EXIT
  94.  
  95. FIRST CCNAME
  96.  
  97. name1 = RESULT
  98.  
  99. IF (name1 = "") THEN EXIT
  100.  
  101. EXTRACT USERID "'"name1"'"
  102.  
  103. emailaddr=RESULT
  104.  
  105. DO UNTIL emailaddr = ""
  106.  
  107.     IF (ADDTOAB = 1) THEN DO
  108.         IF (addrtype = -1) THEN DO
  109.             cmd = "ADDRESS_BOOK CREATE GROUP " grpname sndho "'"emailaddr"'" grpdesc
  110.             addrtype = 1
  111.             END
  112.         ELSE cmd = "ADDRESS_BOOK ADD TO GROUP " grpname "'"emailaddr"'"
  113.         cmd
  114.         END
  115.     NEXT NAME
  116.     IF (RC ~= 0) THEN DO
  117.         OKAY1 "last error is "AEMAIL.LASTERROR
  118.         EXIT
  119.         END
  120.     name1 = RESULT
  121.     EXTRACT USERID "'"name1"'"
  122.     emailaddr=RESULT
  123.     END
  124.  
  125.  
  126.  
  127. OKAY1 "Last CC: Name Added"